
 1000  *---------------------------------
 1010  *     NUMERIC KEY PAD FOR APPLE
 1020  *---------------------------------
 1030         .OR $300
 1040         .TF B.NKP
 1050  *---------------------------------
 1060         LDA #1
 1070         STA TOGGLE
 1080         LDA #NKP
 1090         STA $38
 1100         LDA /NKP
 1110         STA $39
 1120         JMP $3EA
 1130  *---------------------------------
 1140  TOGGLE .BS 1
 1150  SAVEY  .BS 1
 1160  *---------------------------------
 1170  NKP
 1180         JSR $FD1B
 1190         CMP #$93     CONTROL-S
 1200         BEQ .4
 1210         BIT TOGGLE
 1220         BMI .2       NOT IN NUMERIC MODE
 1230         STY SAVEY
 1240         LDY #TBLSIZ-1
 1250  .1     CMP CHRTBL,Y
 1260         BEQ .3       FOUND IN TABLE
 1270         DEY
 1280         BPL .1
 1290         LDY SAVEY
 1300  .2     RTS
 1310  .3     LDA ALIAS,Y
 1320         LDY SAVEY
 1330         RTS
 1340  .4     LDA TOGGLE
 1350         EOR #$80
 1360         STA TOGGLE
 1370         JMP $FD0C
 1380  *---------------------------------
 1390  CHRTBL .AS -"/L NM,HJKYUI"
 1400  TBLSIZ .EQ *-CHRTBL
 1410  ALIAS  .HS 8D
 1420         .AS -"-0123456789"
 1430  *---------------------------------

